home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / demos / databasepro3 / clipart / dtp_pgs3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-01-19  |  794 b   |  39 lines
  1. /* Bild aus Clipart/PicBase an PageStream3 übergeben */
  2.  
  3. ARG bild
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS DataBase Message "Bild wird übergeben ..."
  8.  
  9. pos = LastPos(".",bild)
  10. IF pos > 0 THEN DO
  11.   filter = "FILTER "
  12.   ext = SubStr(bild,pos+1,Length(bild)-pos)
  13.   SELECT
  14.     WHEN ext = "IFF" THEN
  15.       filter = filter || "IFFILBM"
  16.     WHEN ext = "GIF" THEN
  17.       filter = filter || "GIF"
  18.     WHEN ext = "PCX" THEN
  19.       filter = filter || "PCX"
  20.     WHEN ext = "BMP" THEN
  21.       filter = filter || "BMP"
  22.     WHEN ext = "TIF" THEN
  23.       filter = filter || "TIFF"
  24.     OTHERWISE
  25.       filter = ""
  26.   END
  27.   END
  28. ELSE
  29.   filter = ""
  30.  
  31. ADDRESS 'PAGESTREAM'
  32.  
  33. PlaceGraphic FILE bild filter STATUS
  34. IF RC ~= 0 THEN
  35.   ADDRESS DataBase Message "Bild kann nicht übergeben werden"
  36. ELSE
  37.   ADDRESS DataBase Message "Bild übergeben"
  38.  
  39.